home *** CD-ROM | disk | FTP | other *** search
/ Amoszine 10 / Amoszine 10 (Disk 3 of 3).adf / Various.lha / reloc_med_.asc < prev   
Text File  |  1995-11-18  |  306b  |  13 lines
  1. Procedure RELOC_MED[BNK]
  2.    ' BNK - bank #
  3.    '
  4.    ' Open medplayer.library, version 2 or newer
  5.    Lib Open 1,"medplayer.library",2
  6.    ' the address of the med module to a0
  7.    Areg(0)=Start(BNK)
  8.    ' call RelocModule from medplayer.library 
  9.    L=Lib Call(1,-102)
  10.    ' close library
  11.    Lib Close 1
  12. End Proc
  13.